Fortran forall

forall 使操作可以用于部分元素，且可以通过索引和逻辑条件选择：

forall (i=triplet, [j=triplet,..., logical]) statement
! 实例
forall (i=1:5)
  a(i) = i
end forall
forall (i=1:5:2, j=1:5, a(i,j)<10)
forall (i=1:5, j=1:5, i==j)
forall (i=1:5, j=1:5, ((i>j) .and. a(i,j)>0))